Sub pcwRemoveHyperlinks
Dim oDoc,FandR,oFound
oDoc = ThisComponent
FandR = oDoc.createSearchDescriptor
FandR.ValueSearch = False
Dim args(0) as new com.sun.star.beans.PropertyValue
args(0).Name = "HyperLinkEvents"
args(0).Value = ""
FandR.SetSearchAttributes(args())
oFound = oDoc.FindFirst(FandR)
While Not isNull(oFound)
 oFound.HyperLinkURL = ""
 oFound.HyperLinkName = ""
 oFound.HyperLinkTarget = ""
 oFound = oDoc.FindNext(oFound.End,FandR)
Wend
End Sub